home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 4 / PC World Interactive 4.iso / share / internet / death / _SETUP.1 / events.ini < prev    next >
Encoding:
INI File  |  1997-08-30  |  8.3 KB  |  155 lines
  1. [script]
  2. n0=;-----------------------------------
  3. n1=;     (dEATH ThrustPACK)
  4. n2=;   Auto Op/Protect/Shitlist
  5. n3=;-----------------------------------
  6. n4=on @85:JOIN:# {
  7. n5=  if (%Group.AutoOp == On) {
  8. n6=    set %Var.Temp $address($nick,3) | set %Var.Temp $readini $mircdir $+ documents\protected.ini %Var.Temp Channels
  9. n7=    if (($chan isin %Var.Temp) || (%Var.Temp == *)) {
  10. n8=      mode $chan +o $nick | .notice $nick Auto Op by $me (dEATH ThrustPACK 3.1)
  11. n9=      echo 6 $chan Gave op on $chan to: $nick ( $+ $address $+ ).
  12. n10=    }
  13. n11=  }
  14. n12=}
  15. n13=on @80:JOIN:# {
  16. n14=  if (%Group.AutoOp == On) {
  17. n15=    set %Var.Temp $address($nick,3) | set %Var.Temp $readini $mircdir $+ documents\autoop.ini %Var.Temp Channels
  18. n16=    if (($chan isin %Var.Temp) || (%Var.Temp == *)) {
  19. n17=      mode $chan +o $nick | .notice $nick Auto Op by $me (dEATH ThrustPACK 3.1)
  20. n18=      echo 6 $chan Gave op on $chan to: $nick ( $+ $address $+ ).
  21. n19=    }
  22. n20=  }
  23. n21=}
  24. n22=on 5:JOIN:* {
  25. n23=  set %Var.Temp $address($nick,2)
  26. n24=  if (%Var.Temp iswm $address($me,5)) { halt }
  27. n25=  if ($ial(%Var.Temp,0) > %Var.MaxClones) {
  28. n26=    set %Var.Index 1
  29. n27=    :getnick
  30. n28=    set %Clone.Nick $ial(%Var.Temp,%Var.Index).nick | if (%Clone.Nick == $null) { goto check }
  31. n29=    if (%Clone.Nick ison $chan) {
  32. n30=      if (%Clone.List == $null) { set %Clone.List %Clone.Nick | inc %Var.Index | goto getnick }
  33. n31=      set %Clone.List [ %Clone.List ] 1--> %Clone.Nick | inc %Var.Index | goto getnick
  34. n32=    } | inc %Var.Index | goto getnick
  35. n33=    :check
  36. n34=    if ($gettok(%Clone.List,3,32) == $null) { unset %Clone.* | halt }
  37. n35=    echo 2 $chan $timestamp *** Clone detected on $chan $+ . 6 %Clone.List  6( $+ 1 $+ %Var.Temp $+  $+ 6)
  38. n36=    if ($me isop $chan) { echo 2 $chan $timestamp *** Press F5 to Filter Kick Clones! (Highlight Channel First) }
  39. n37=    if (%Group.Clones == Off) { unset %Clone.* | halt } | if ($me !isop $chan) { goto end }
  40. n38=    set %Var.Index 1 | set %Clone.List $remove(%Clone.List,-->) | mode $chan +b %Var.Temp
  41. n39=    :kickclone
  42. n40=    set %Var.Temp $gettok(%Clone.List,%Var.Index,32) | if (%Var.Temp == $null) { goto end }
  43. n41=    inc %Var.Victims     
  44. n42=    kick $chan %Var.Temp Clones! $address($nick,2) (dEATH ThrustPACK 3.1 | inc %Var.Index | goto kickclone
  45. n43=    :end
  46. n44=    unset %Clone.*
  47. n45=    unset %Var.Temp
  48. n46=  }
  49. n47=}
  50. n48=on +@1:JOIN:* {
  51. n49=  if (%Group.AutoShit == On) {
  52. n50=    inc %Var.Victims 
  53. n51=    ban $chan $nick 3 | kick $chan $nick Shitlisted Asshole! (dEATH ThrustPACK 3.1
  54. n52=  }
  55. n53=  echo 4 $chan Warning! Shitlisted user has joined $chan $+ : $nick ( $+ $address $+ ).
  56. n54=}
  57. n55=;-----------------------------------
  58. n56=;     (dEATH ThrustPACK)
  59. n57=;      User and Chan. Prot.
  60. n58=;-----------------------------------
  61. n59=on @!5:DEOP:* {
  62. n60=  if (%Group.Protect == On) {
  63. n61=    if ([ $level($address($opnick,3)) ] >= 85) && ([ $level($address($nick,3)) < 85) {
  64. n62=      set %Var.Temp $address($opnick,3) | set %Var.Temp $readini $mircdir $+ documents\users.ini %Var.Temp Channels
  65. n63=      if (($chan isin %Var.Temp) || (%Var.Temp == #)) {
  66. n64=        mode $chan +o-o $opnick $nick | .notice $nick $opnick Protected by $me (dEATH ThrustPACK 3.1)
  67. n65=      echo 6 $chan Protected user on $chan $+ : $nick ( $+ $address $+ ). }
  68. n66=    }
  69. n67=  }
  70. n68=  if (%Group.MassDeop == On) {
  71. n69=    if ([ %Mode. [ $+ [ $site ] ] ] == $null) { set %Mode. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Mode. [ $+ [ $site ] ] }
  72. n70=    if ([ %Mode. [ $+ [ $site ] ] ] > 3) { inc %Var.Victims | kick $chan $nick Mass Deop Protection! (dEATH ThrustPACK 3.1 | unset %Mode. [ $+ [ $site ] ] | echo 6 -a Kicked $nick from $chan for Mass Deop protection. | halt }
  73. n71=    inc %Mode. [ $+ [ $site ] ] 1
  74. n72=  }
  75. n73=}
  76. n74=on @!5:KICK:* {
  77. n75=  if (%Group.Protect == On) {
  78. n76=    if ([ $level($address($knick,3)) ] >= 85) && ([ $level($address($nick,3)) < 85) {
  79. n77=      set %Var.Temp $address($opnick,3) | set %Var.Temp $readini $mircdir $+ documents\users.ini %Var.Temp Channels
  80. n78=  if (($chan isin %Var.Temp) || (%Var.Temp == #)) { mode $chan -o $nick | .notice $nick $knick Protected by $me (dEATH ThrustPACK 3.1 | .invite $knick $chan }  } }
  81. n79=  if (%Group.MassKick == On) {
  82. n80=    if ([ %Mode. [ $+ [ $site ] ] ] == $null) { set %Mode. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Mode. [ $+ [ $site ] ] }
  83. n81=    if ([ %Mode. [ $+ [ $site ] ] ] > 3) { inc %Var.Victims | kick $chan $nick Mass Kick Protection! (dEATH ThrustPACK 3.1 | unset %Mode. [ $+ [ $site ] ] | echo 6 -a Kicked $nick from $chan for Mass Kick protection. | halt }
  84. n82=    inc %Mode. [ $+ [ $site ] ] 1
  85. n83=  }
  86. n84=}
  87. n85=on @!5:BAN:* {
  88. n86=  if ([ $banmask ] iswm [ $address($me,0) ]) { mode $chan -ob $nick $banmask | if ($nick ison $chan) {   inc %Var.Victims | kick $chan $nick Personal Ban Protection (dEATH ThrustPACK 3.1 | halt } }
  89. n87=  if ($level($banmask) >= 85) { mode $chan -ob $nick $banmask | kick $chan $nick User Protection (dEATH ThrustPACK 3.1 | halt }
  90. n88=  if (%Group.MassBan == On) {
  91. n89=    if ([ %Mode. [ $+ [ $site ] ] ] == $null) { set %Mode. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Mode. [ $+ [ $site ] ] }
  92. n90=    if ([ %Mode. [ $+ [ $site ] ] ] > 3) { kick $chan $nick Mass Ban Protection! (dEATH ThrustPACK 3.1 | unset %Mode. [ $+ [ $site ] ] | -a echo 6 Kicked $nick from $chan for Mass Ban protection. | halt }
  93. n91=    inc %Mode. [ $+ [ $site ] ] 1
  94. n92=  }
  95. n93=  if (%Group.MassDesynch == On) {
  96. n94=    if ($nick !isop $chan) { 
  97. n95=      if ($nick ison $chan) { inc %Var.Victims | kick $chan $nick Desynch Protection (dEATH ThrustPACK 3.1 | echo 6 Kicked $nick from $chan for Mass Ban protection. } 
  98. n96=      mode $chan -b $banmask 
  99. n97=    }
  100. n98=  }
  101. n99=}
  102. n100=on @!5:TOPIC:%Var.ChanTopic: if (%Group.Topic == On) { topic $chan %Var.Topic | .notice $nick Topic Protection! (dEATH ThrustPACK 3.1) }
  103. n101=;-----------------------------------
  104. n102=;     (dEATH ThrustPACK)
  105. n103=;             Net Split Prot.
  106. n104=;-----------------------------------
  107. n105=on @80:SERVEROP:*: if (%Group.ProtSplit == On) { halt }
  108. n106=on @5:SERVEROP:*: if (%Group.ProtSplit == On) { mode $chan -o $opnick | .notice $opnick Netsplit Protection! (dEATH ThrustPACK 3.1) }
  109. n107=on 5:SNOTICE:*Net*Break*: {
  110. n108=  if (%Group.LinkLooker == On) {
  111. n109=    echo 1 -s ----------------------------------------------------------------------------
  112. n110=    echo 2 -s 6òò NetSplit ╫ 4 $+ $parm7 $+  6òò
  113. n111=    echo 1 -s ----------------------------------------------------------------------------
  114. n112=    write -i1 $mircdir $+ documents\split.txt $parm7  [Split] $timestamp  
  115. n113=    set %Var.Split $parm7
  116. n114=    splay $mircdir $+ wavs\split.wav
  117. n115=  }
  118. n116=  halt
  119. n117=}
  120. n118=on 5:SNOTICE:*Net*Junction*: {
  121. n119=  if (%Group.LinkLooker == On) {
  122. n120=    echo 1 -s -----------------------------------------------------------------------
  123. n121=    echo 2 -s 6òò NetMerge ╫ 4 $+ $parm7 $+  6òò
  124. n122=    echo 1 -s -----------------------------------------------------------------------
  125. n123=    splay $mircdir $+ wavs\merge.wav 
  126. n124=    set %Var.Merged $parm7 
  127. n125=    write -ds $+ %Var.Merged $mircdir $+ documents\split.txt 
  128. n126=  }
  129. n127=  halt
  130. n128=}
  131. n129=on 5:SNOTICE:*: halt
  132. n130=;-----------------------------------
  133. n131=;     (dEATH ThrustPACK)
  134. n132=;             Takeover
  135. n133=;-----------------------------------
  136. n134=on 1!:QUIT { 
  137. n135=  if (($parm1 == Excess) && ($parm2 == Flood) && ($parm3 == $null)) { inc %Var.Victims | inc %Var.TotalVictims }
  138. n136=}
  139. n137=on 5:OP:#: {
  140. n138=  if ($opnick == $me) && (%Group.AutoTakeover == On) {
  141. n139=    set %Var.Chan $chan
  142. n140=    set %i 1
  143. n141=    set %Var.Index 1
  144. n142=    if (undernet isin $server) { set %Var.Num 6 }
  145. n143=    else { set %Var.Num 4 }
  146. n144=    :start
  147. n145=    set %Var.User $opnick(%i,%Var.Chan)
  148. n146=    if (%Var.User == $null) { raw mode %Var.Chan -oooooo %Var.Nick | echo 6 # Mass Deop On # Complete! | unset %Var.Nick | unset %i | unset %Var.Chan | unset %Var.Index | unset %Var.Num | halt }
  149. n147=    if (%Var.User == $me) { inc %i 1 | goto start }
  150. n148=    if (%Var.User != $me) { set %Var.Nick %Var.User %Var.Nick | if (%Var.Index == %Var.Num) { raw mode %Var.Chan -oooooo %Var.Nick | unset %Var.Nick | set %Var.Index 1 | inc %i 1 | goto start } | inc %Var.Index 1 }  
  151. n149=    inc %i 1 
  152. n150=    goto start
  153. n151=  }  
  154. n152=}
  155.